keydEFS.mESA 24-0CT-77 18:30:50 Page 1 

-- File: KeyDefs.Mesa Modified by: Johnsson, August 1, 1977 8:11 AM 
KeyDefs: DEFINITIONS = BEGIN 

updown: TYPE = {down, up}; 

KeyArray: TYPE = ARRAY [0..5) OF WORD; 

KeyBits: TYPE = MACHINE DEPENDENT RECORD [ 
blank: [0..377B], 

Keyset 1 , Keyset2 .Key set 3 , Key set 4, Keysets : updown , 
Red , Blue .Yellow: updown, 
Five.Four.Six.E.Seven.D.U.V, 
Zero.K.Dash.P.Slash.BackSlash.LF.BS: updown, 
Three.Two.W.Q.S.A.Nine.I , 

X, 0, L, Comma, Quo te, R IghtB racket, Spar e2 .Sparel : updown , 
One. ESC, TAB, F, Ctrl. C. J. B. 

Z.LeftShif t, Period, Semi Co Ion, Return, Arrow, DEL, FL3: updown, 
R, T.G.Y.H, Eight, N.M, 
Lock, Sp ace, LeftBracket, Equal ,RightShif t ,Spare3 , FL4,FR5: updown]; 

Keys: POINTER TO KeyBits = LOOPHOLE[177033B] ; 

MouseButton: TYPE = {RedYel 1 owBlue, RedBlue, RedYellow, Red, BlueYellow, Blue, Yellow. None}; 

MouseBits: TYPE = MACHINE DEPENDENT RECORD [ 
blank: [0..377B], -- Diablo, Versatec. etc. 
keyset: [0..37B], -- => down, i.e. normal state is 37B 
buttons: MouseButton]; -- 0=> down, normal is 7B = MouseButton[None] 

Mouse: POINTER TO MouseBits = LOOPHOLE[Keys] ; 

KeyName: TYPE = { 

xO, xl, x2, x3, x4, x5. x6, x7, 

Keysetl , Key set 2 , Key s et3 , Key set 4, Keysets , 

Red, Blue, Yellow, 

F i ve, F ou r, Si X ,E, Seven, D.U.V, 

Ze ro, K, Das h.P, SI ash, Backs 1 ash, LF,BS, 

Three,Two.W,Q,S,A,Nine, I , 

X,0, L .Comma, Quote, Rights racket , Spar e2, Spar el, 

One. ESC, TAB, F, Ctrl ,C,J,B, 

Z, Le f tSh i f t. Pe r iod, Semi Co Ion, Ret urn. Arrow, DEL, FL3. 

R, T.G.Y.H, Eight, N.M. 

Lock, Space. LeftBracket. Equal . RightSh if t . Spare3 , FL4,FR5}; 

-- Alto II names for some keys can be different 

FLl: KeyName == DEL; 

FL2: KeyName = LF ; 

BW: KeyName = Sparel; 

FRl: KeyName = Spare3; 

FR2: KeyName = Backslash; 

FR3 : KeyName = Arrow; 

FR4: KeyName = Spare2; 

Keyltem: TYPE = RECORD [ 
Letter: BOOLEAN. 
ShiftCode: [0. .177B], 
NormalCode: [0. .377B]]; 

ChangeKey: PROCEDURE [key: KeyName, action: Keyltem] RETURNS [oldAction: Keyltem]; 

END. 


